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EE QUANDO USAR BLOCOS GRÁFICOS 
5 COMO COMBINAR BLOCOS 

PARA FORMAR FIGURAS 
E “CRIAÇÃO DE UM CENÁRIO 
E BANCOS DE BLOCOS 








Com um conjunto de blocos gráficos, 
será fácil criar as mais diversas 
figuras. Você precisará apenas colocar 
os blocos na posição correta e 
acrescentar alguns detalhes ao fundo. 


Já falamos bastante sobre a criação, 
proteção, edição e gravação de conjun- 
tos de blocos definidos pelo usuário. 
Mostramos também ao usuário do Spec- 
trum como exceder o limite de 21 blo- 
cos inicialmente imposto. Neste artigo, 
O segundo de uma série de três, avança- 
mos as explicações sobre o uso de blo- 
cos gráficos na criação de figuras na te- 
la de seu microcomputador. 


POR QUE USAR BLOCOS GRÁFICOS 





Suponhamos que você queira criar 
uma tela representando uma floresta — 
para servir de cenário a um jogo de: 
ação, por exemplo. Existem basicamen- 
te dois caminhos a seguir: usar os co- 
mandos gráficos do BASIC para dese- 
nhar cada parte da figura ou, então, 
combinar blocos gráficos. | 

Se você escolher a primeira alternati- 
va, terá um trabalho enorme para criar 
a mata que faz parte do cenário, pois pre- 
cisará desenhar cada tronco e cada copa 
de árvore. Além disso, as árvores ficarão 
muito parecidas umas com as outras. 

Se você criar um bloco gráfico, ou 
vários deles que, combinados, formem 
uma árvore, poderá colocá-los na tela, 
repetidas vezes, nas posições que quiser. 
Você evitará, desse modo, o trabalho de 




























especificar cada detalhe ao acrescentar 
mais uma árvore na tela. 

Existem ainda outras vantagens no 
uso de UDG. Uma delas é a economia 
de tempo. Os desenhos compostos por 
blocos gráficos, não importa se mais ou 
menos complicados, são traçados na tela 
numa velocidade maior que os produ- 
zidos com comandos gráficos do BA- 
SIC. Assim, se compusermos uma figu- 
ra com blocos gráficos, teremos que es- 
perar bem menos tempo por sua apari- 
ção na tela. 


LIBERDADE DE ESCOLHA 





“Outra vantagem é a facilidade de va- 
riar O tamanho e a forma da figura. No 
desenho da floresta, por exemplo, po- 
'deriamos mudar o tamanho de uma ár- 

| vore aumentando ou diminuindo o nú- 
-— mero de “blocos de tronco” e, ainda, 
- alterar sua copa usando uma combina- 
bg, - ção diferente de “blocos de folhagem”. 
— Os comandos gráficos do BASIC podem 
- fazer a mesma coisa, mas, com os blo- 
cos, a tarefa é bem mais fácil. 
| - Uma vez criados, os blocos gráficos 
| o Es *rmanecem na memória até serem mo- 
- dificados — ou o micro ser desligado. 
ad “caso do Spectrum, se dispusermos 
je vários bancos, precisaremos “ligar” 
3 banco que estiver sendo usado naquele 
“momento. Mas isto é só uma questão de 
“mo “o apontador de UDG. 
E ra “Poderemos, assim, usar os blocos que 
pa grantas vezes quisermos dentro 
o ig | grama: o único limite é a me- 
Voltando ao nosso exemplo, se- 
Rei criar q uma floresta quanto 
nica árvore RE EMDO: 
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ra guardar os blocos e, pior, a menos que 
sejamos cuidadosos, acabamos fazendo-o 
duas vezes. No próximo artigo, veremos 
como contornar o problema. 


QUANDO VALE A PENA USAR UDG 





Por todas estas razões, é mais vanta- 
joso usar blocos gráficos em certas fi- 
guras do que em outras. 

Como regra geral, se o cenário inclui 
uma série de objetos semelhantes, dese- 
nhados várias vezes, ou se algum tipo de 
figura aparece repetidamente no decor- 
rer do programa, o uso de UDG vai nos 
poupar tempo e trabalho. 

Se, por outro lado, queremos um de- 
senho muito detalhado, que usaremos 
apenas uma vez durante o programa, 
pode ser melhor ficarmos com os co- 
mandos gráficos do BASIC. 

Uma parede de tijolos, por exemplo, 
poderá ser desenhada com muito mais 
facilidade se utilizarmos um ou vários 
blocos repetidas vezes. Uma alternativa 
seria traçar diversas linhas sobre uma re- 
gião colorida para imitar Os espaços en- 
tre os tijolos. 

No nosso cenário de floresta, já vi- 
mos que podemos fazer uma boa eco- 
nomia de tempo criando UDG para as 
árvores que nele aparecem. Os animais 
também podem ser desenhados com blo- 
cos gráficos, principalmente se formos 
utilizá-los novamente no decorrer do 
programa, ou se quisermos animá-los ou 
desenhá-los várias vezes. 
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Apresentaremos a seguir alguns pro- 
gramas que criam os caracteres para de=» 
senhar o cenário já mencionado. 

As linhas DATA para o Spectrum/e 
o MSX são as mesmas. Elas começam 7 
na linha 1300 e estão listadas logo'após 
o programa do MSX. 


10 CLEAR 63500 
110 POKE 23676,255 
120 FOR n=USR "a” 
' BREAD a: POKE n,a: 
260 POKE 23676,249 
270 FOR n=USA "a" TO USR “m 
' READ a: POKE n,a: NEXT n 


ee 


TO USAR “r"+7 


NEXT n 


C+7 , , 2 


290 POKE 23676,248 F. 
300 FOR n=USAR "a" TO USAR "o"+7 12. 
- READ a: POKE n,a: NEXT n 


410 BORDER 1: PAPER B: CLS 

420 FOR n=1 TO 8: PRINT PAPER 
5;" "ITAB 31;” Fº: NEXT n 

430 FOR n=1 TO 14: PRINT 

PAPER 4;" ";TAB 31;" ": NEXT n 
440 PLOT 0,110: DRAW 142,-100, 
-P1/3: PLOT 160,110: DRAW -60, 























INUITTO 











diabo = da ms dn pd Pag om 
o gd 3 , pri ql W jr ta Te Seo = a Ns, a ] ' 4 sera 
NUA, A ap o a E; “pd É ques, ia q. 


h ; f 1 , - 
+ Es Empis A o ad AS Sa ms 
“ E " x nã, o | e Da ds ! 


1 





: ini = = Fen TT To) + z 
| | [ 1 
| 7] 
RB! | | 
lim E ) a 


1870 DATA 0,0,0,0,1,1,3,7,0,0,0 
,/0,224,240,248,248,15,63,63,693, 
31,15,3,3 

1880 DATA 252,254,254,254,254,2 
54,252,252 

1890 DATA 3,3,3,3,3,1,0,0,248,2 
48,248,248,248,248,240,96,96,96 
/96,96,96,96 

1900 DATA 96,96 

1910 REM ARVORE 2 

1920 DATA 0,3,15,31,127,127,63, 
1,7,19,455,255,255,255,255,255, 
15,63,255,255 

1930 DATA 255,255,255,255,0,128 
, 248, 248, 248,248,240,224 

1940 DATA 255,227,96,48,24,25,1 
3,15,252,240,96,96,192,192,128, 
128,7,7,7,7,1 

1950 DATA 7,7,7,7,7,7,15,15,d5, 
31,63 


5 CLEAR 200,8HC999 

10 FOR I=0 TO 367 

20 READ A:POKE &HD100+I,A 
30 NEXT I:COLOR 15,4,4 
110 SCREEN 2 

120 CIRCLE (255,191),160,2,0,6. 


28,.6:PAINT(230,191),2 

130 CIRCLE(0,191),143,2,0,6.28, 
.4: PAINT (10,191),2 

140 CIRCLE(0,191),143,12,0,6.28 
+. À 
200 FOR I=1l TO 51 

210 READ A,B,C:FOR J=0 TO 7 

220 VPOKE BASE (12) +A*B+J, PEEK (A 
HD100+B*8+J) 

230 VPOKE BASE(I1)+A*8B+J,C 








240 NEXT J,I 

250 FOR K=1 TO 6:READ D(K) :NEXT 
K 

260 FOR I=1l TO B:READ A(I),B(I) 
«C(I):NEXT I:FOR K=1 TO 6:FOR 1 
=] TO 8:FOR J=0 TO / 

270 VPOKE BASE (12) +(A(I)+D(K))* 
8+J, PEEK (.HDI100+B(I) *8+J) 

280 VPOKE BASE(II)J+(A(I)J+D(K))* 
B+J,C(I) 

290 NEXT J,I,K 

300 FOR K=1 TO B:READ D(K) :NEXT 
K 

310 FOR I=1l TO 9:READ A(I),B(I) 
«C(I):NEXT I:FOR K=1 TO B:FOR 1 
=] TO 9:FOR J=0 TO / 

320 VPOKE BASE(IZ)+(A(I)J+D(K))* 
B+J, PEEK (4HD100+B(1) *B+J) 

330 VPOKE BASE (II)+(A(I)J+D(K))* 
B+J,C(I) 

340 NEXT J,I,K 

400 GOTO 400 

3000 DATA 692,0,98,693,1,98,694 
,/2,98,695,3,98 

3010 DATA 696,4,98,697,5,98,698 
(/6,98,699,7,98 







3020 DATA 700,8,98,701,9,98,702 
/10,98,703,11,98 

3030 DATA 724,12,98,725,13,98,7 
26,14,98,727,15,98 

3040 DATA 728,15,98,729,15,98,7 
30,15,98,731,15,98 

3050 DATA 732,16,98,733,15,98,7 
34,15,98,735,15,98 

3060 DATA /54,17,78,755,17,78,7 
56,17,78,757,17,78,758,17,78,75 
9,17,78 

3070 DATA 760,17,78,761,17,78,7 
62,17,78,763,17,78 

3080 DATA 764,17,78,765,17,78,7 
66,17,78B,767,17,78 

3090 DATA 500,18,226,501,19,226 
,/502,20,226,503,21,226 

3100 DATA 532,22,226,533,23,226 
,534,24,226,535,25,226 

3110 DATA 536,26,226,565,27,226 
1566, 28,226,567,29,226,568,30,2 
26 

3115 DATA -32,-4,36,75,8B0,147 
3120 DATA 342,31,36,343,32,56,3 
/4,33,36,375,34,36 

3130 DATA 406,35,36,407,9396,36,4 
39,37,96,471,37,96 

3135 DATA -44,-20,-15,60,84,96, 
157,163 

3140 DATA 327,38,36,328,39,36,3 
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29,40,36,330,41,36 

3150 DATA 360,42,96,361,43,96,3 
92,44,96,424,44,96 

3160 DATA 456,45,96 


1300 REM CROCODILO 

1310 DATA 0,0,1,7,15,15,9,5,0,0 
,128,192,248,255,127,95,1,3,6,1 
2 

1320 DATA 62,255,255,255,192,22 
4,176,159,191,255,255,255 

1330 DATA 0,0,0,0,0,248,252,255 
/0,0,0,0,0,0,1,207,0,0,0,1,15,1 
27,255,255 

1340 DATA 0,3,63,255,255,255,25 
9,255,127,255,255,255,255,254,2 
49,247,248 

1350 DATA 255,255,255,255,15,25 
2,255 

1360 DATA 0,224,254,255,255,255 
,255,255,0,0,0,192,248,255,255, 
255,0,2,4,7,7 

1370 DATA 3,0,0,21,1,164,73,255 
1255,0,0 

1380 DATA 255,127,63,63,255,255 
,427,31,255,255,255,255,255,255 
,255,255 

1390 DATA 239,239,239,239,239,2 
4/7,247,247,60,255,255,255,255,2 
55,255,255 

1780 DATA REM ELEFANTE 

1790 DATA 0,0,0,8,28,25,51,51,0 
/0,0,126,255,193,253,253,0,0,0, 


=0,0,255,255 
























































































1800 DATA 255,0,0,0,0,0,248,252 
254 

1810 DATA 102,111,111,111,125,5 
7,26,0,253,251,251,251,231,31,1 
5,15,255,255 

1820 DATA 255,255,255,255,255,2 
39, 254,255,255,255,255,255,255, 
255 

1830 DATA 0,0,128,64,32,16,12,0 
,15,15,15,14,14,14,14,31,255,24 
0,224,224 

1840 DATA 224,224,224,224,255,6 
3,59,59,57,57,121,248 

1850 DATA 0,0,128,192,224,224,1 
28,0 

1860 REM ARVORE 1 

1870 DATA 0,0,0,0,1,1,3,7,0,0,0 
/0,224,240,248,248,15,63,63,63, 
31,15,3,3 

1880 DATA 252,254,254,254,254,2 
54,252,252 

1890 DATA 3,3,3,3,3,1,0,0,248,2 
48,248,248,248,248,240,96,96,96 
196,96,96,96 

1900 DATA 96,96 

1910 REM ARVORE 2 

1920 DATA 0,3,15,31,127,127,63, 
1,7,15,255,295,455,455,255,255, 
15,63,255,255 

1930 DATA 255,255,255,255,0,128 
,<48,248,248,248,240,224 

1940 DATA 255,227,96,48,24,25,1 
3,15,252,240,96,96,192,192,128, 
128,7,7, 70707 

1950 DATA 7,7,7,7,7,7,15,15,15, 
31,63 


10 CLEAR 1000:CLS 

20 DIM C(59),E(17),TI(1),T2(7), 
F1(7),F2(7) 

30 PMODE 3,1:PCLS 

40 W$=" L6UL6D" :WS=WS+WS+WS+WS 
50 DRAW"BM1, 4C4ARURZUR2ZDR2DR4DRB 
UR4URZURZURZUR4DR2DR2DR4D2R6DA2 
DR4DR4AUR4AURAUR4AURAURAURÁURÁURIO 
DRODR4DR2DR2DR2D15"+WS+WS+" LGUL 
6DL4BUL4DRIIFRFR7FR3FR9FGL7GL21 
HLZ2D3FR2Z21FR3F” 

60 PAINT(50,10),4 

70 DRAW"BM98, SCILBGLGLGDSBFD2RF 
R3FBM32, 2GFREHLBM1, BC2FRERFBR4U 
BM+4, 2; RBR3RBM+3, 1;RBM+3,1;RBR3 
RBLSBDLBLSNEBL6NEBL4EBLSE" 

80 GET (0,0)-(112,20),C,6G 

230 PCLS 

240 DRAW"BM4, 0C2DG2DG2D3IR2DEZUE 
2UE43FRFRI1IF3RFRFRIDBLBNUID4F2D 
GH2UHL 3D5SLURU3HL6DSL 2BU6L IDENL2 


« U6LHZLNGUHL2" 
E 250 PAINT(20,7),2 
” 260 DRAW"BMI2, 3C3R2D4G2BMB, 4R” 


270 GET(0,0)-(37,17),E,G 

280 PCLS 4 

290 DRAW"BM7, ]L9CIH3USHSUE6RZF3D 
F2D2G3D3G2D2" : PAINT(7,7),1 

300 DRAW"BM20, SEZRZEZRFR4EZF2R2 
EZRSFRFDG3ILGLGLGLSHL5SH2L4" : PAIN 
T(34,5),1 

310 GET(0,0)-(13,19),F1,G:GET(2 
0,0)-(49,9),F2,6 











320 PCLS:DRAW"BMO, OC4D20BE2Z0F3D 
FDI5SG2NL2R8HL4EUl]3E4U2Z” 

330 GET(0,0)-(1,20) is | +16:GET(20 
(0)=-(31,22) T£.6 

340 PCLS3:SCREEN 1,0 

350 CIRCLE(255,191),160,1,.6:PA 
INT(230,180),1 

360 CIRCLE(0,191),140,2, 
1: PAINT(10,180),1,2 

380 PUT(206,100)-(243,117),E,PS 
ET 

390 FOR K=1 TO 10: READ X,Y:PUT 
(X, 7)-(X+13,Y+19),F1,AND: PUT (X+ 
6,7+20)-(X+7,Y+40),T1,0R:NEXT 
400 FOR K=1 TO 10:READ X,Y:PUT( 
X,Y)-(X+29,Y7+9),F2,AND: PUT(K+8, 
Y+9)- (X+19,Y+31),T2,0R:NEXT 

410 COLOR 2:LINE (138,187)-(255 
, 187), PSET: PAINT (255,191),2:PAI 
NT(255,191),3,1 

420 PUT(143,166)-(255,186),C,PS 
ET 

450 DATA 16,110,24,113,34,108,4 
8,110,56,108,190,80,198,82,212, 
84,210,79,240,70 

460 DATA 2,120,18,122,28,116,46 
,118,60,124,160,90,174,95,190,9 
0,214,86,226,90 

470 GOTO 470 


Executando estes programas, vere- 
mos o tipo de figura que podemos criar 
usando UDG. Não se preocupe se o al- 
to da tela parece vazio no momento, 
pois o cenário ainda não está completo. 

A água sob o crocodilo é uma boa de- 
monstração da versatilidade dos blocos 
gráficos: ela é composta pela repetição 
de um só bloco. (Isto não vale para o 
TRS-Color, onde a matriz do crocodilo 
inclui a água.) 

O cenário não é formado apenas por 
UDG: empregamos também comandos 
gráficos para desenhar as colinas. Em- 
bora com frequência seja melhor usar 
blocos gráficos em vez de comandos grá- 
ficos, podemos obter ótimos resultados 
combinando as duas técnicas. O próxi- 
mo artigo completará o desenho; por- 
tanto, grave O programa em fita. 


COMO FUNCIONA 


Se você não entendeu como o progra- 
ma define e guarda os blocos, consulte 
o último artigo desta série. 

O programa pode ser dividido em 
duas partes: uma que define os blocos 
e outra que os coloca na tela. 

O Spectrum utiliza o comando PO- 
KE para colocar os valores das linhas 
DATA na tela;o MSX, por sua vez, usa 
VPOKE. No programa do TRS-Color 
não há linhas DATA: desenhamos as fi- 
guras com DRAW e, em seguida, guar- 
damos os padrões em matrizes com GET. 

Criados os blocos, o programa prosse- 
gue colocando-os nos locais adequados. 


E 5 PRO de= 


a E 034 25 200 


O Spectrum usa uma série de coman- 
dos PRINT AT para desenhar cada seg- 
mento de animal ou árvore. Ele também 
emprega comandos locais de cor para 
colorir as figuras. 

Um comando local de cor é aquele 
que se aplica somente à linha onde ocor- 
re. Em geral, fazemos com que o pano 
de fundo — PAPER — seja 8, que é 
transparente. Isso evita que os blocos 
impressos na tela o danifiquem. 





“UM PANO DE FUNDO MULTICOLORIDO 


O pano dê fundo é definido pelas li- 
nhas 410 a 440. A primeira delas esta- 
belece a cor, e as duas seguintes produ- 
zem o céu azul-claro e o chão verde. Pa- 
ra conseguir as diferentes cores de fun- 
do, imprimem-se espaços com as cores 
escolhidas, por meio de dois laços 
FOR...NEXT. 

Como existem várias árvores no ce- 
nário, elas são desenhadas com sub- 
rotinas (linhas 810 e 820). As variáveis 
X e y correspondem às coordenadas de 
comandos PRINT AT. Podemos facil- 
mente acrescentar novas árvores ao de- 
senho, colocando mais coordenadas (ve- 
ja, no artigo da página 501, como esco- 
lher as coordenadas adequadas) e co- 
mandos GOSUB nessas duas linhas. 


“o; 


O programa do MSX usa o coman- 
do VPOKE para colocar os blocos na te- 
la gráfica. Comandos gráficos do BA- 
SIC também são empregados para de- 
senhar o fundo da figura. 

Inicialmente, a linha 5 protege o to- 
po da memória para que as linhas 10 a 
30 coloquem ali os padrões dos blocos. 
A linha 30 também seleciona as cores da 
tela; a 110 seleciona a tela. As linhas 120 
a 140 desenham as duas colinas que apa- 
recem no fundo. 

Em seguida, usando VPOKE, os pa- 
drões são colocados na tela gráfica. A 
posição que o bloco deve ocupar na te- 
la — A —, a posição do bloco no ban- 
co de blocos — B — e a cor do bloco 
— C — são obtidos com READ nas li- 
nhas DATA que começam em 3000. 

Já que existem dois tipos de árvore, 
elas são desenhadas por dois laços 
FOR...NEXT. Precisamos, no entanto, 
de um grande número delas. Para fazê- 
las, usamos uma série de valores que se 
somam às posições em que cada árvore 
é desenhada. Esses valores são lidos nas 
linhas DATA 3115 e 3135, mudando a 


posição de cada árvore sempre que o la- 
ço é executado. 

As cores não foram colocadas no 
banco, e sim nas linhas DATA a partir 
de 3000, juntamente com as posições 
dos blocos. Isso foi possível porque, em 
nosso exemplo, cada bloco tinha apenas 
duas cores. Quando o colorido dos blo- 
cos for mais complicado, convém usar 
o banco. 


a BRR 


O programa do TRS-Color começa 
reservando espaço para os cordões que 
usa e DIMensionando as matrizes que 
guardam os blocos gráficos. Com exce- 
ção das árvores, temos um bloco gráfi- 
co para cada figura, já que os blocos po- 
dem ter qualquer tamanho. As árvores 
requerem dois blocos cada, pois têm 
uma metade vermelha e outra verde. 


| OS ANIMAIS 


O programa prossegue desenhando 
um animal de cada vez e guardando ca- 
da um deles na matriz apropriada, com 
o comando GET. A linha 80 guarda o 
crocodilo, a linha 270 o elefante, a li- 
nha 310 cuida das copas das árvores e 
a linha 330 dos troncos. 

A segunda parte do programa colo- 
ca cada parte do desenho em seu lugar. 
As primeiras linhas limpam e selecionam 
a tela apropriada, desenhando também 
as colinas que fazem parte do cenário. 
As cores das colinas são determinadas 
pelo comando PAINT. 

Os dois grupos de árvores, cada um 
em uma colina, são desenhados pelo la- 
ço FOR...NEXT das linhas 390 e 400, 
usando as linhas DATA 450 e 460 para 
determinar a posição. 

As linhas 380 e 420 colocam o elefan- 
te e o crocodilo na tela, respectivamen- 
te. A última linha ativa do programa (se 
ignorarmos as linhas DATA) é a 470. 
Ela impede que o programa termine, 
permitindo a visualização da tela que, 
de outra forma, seria apagada. Use 
<BREAK> para parar o programa. 








UMA MANADA DE ELEFANTES 


Podemos substituir o elefante por 
uma manada. O método é o mesmo uti- 
lizado para as árvores: um laço 
FOR...NEXT ou vários comandos 
GOSUB. 


CE o Sa 


Já vimos como usar blocos gráficos 
para escrever na tela de alta resolução. 











Agora vamos examinar como carre- 
gar bytes na área reservada ao banco de 
blocos — segunda página de vídeo — 
por meio do monitor. 

O monitor permite que coloquemos 
valores diretamente na memória do mi- 
cro. Estes números serão, em nosso ca- 
so, Os bytes correspondentes aos blocos 
gráficos necessários para o cenário. 

Depois de colocar todos estes bytes 
na memória, carregue e execute o gera- 
dor de blocos, para poder ver, editar e 
entender como foram criadas as figuras. 
No próximo artigo apresentaremos o 
programa BASIC que desenha a flores- 
ta usando o banco de blocos que esta- 
mos criando hoje. 

Para carregar o banco de blocos, ati- 
ve o monitor com: 


CALL — 151 


ou LM no TK-2000. 

Agora, copie a listagem. Para alterar 
o conteúdo de uma posição de memó- 
ria, digite o endereço pretendido, segui- 
do de dois pontos e dos valores deseja- 
dos. Em nosso exemplo, modificamos 
oito posições de cada vez. Lembre-se de 
que todos os números precisam estar na 
forma hexadecimal. No TK-2000, de- 
vem-se usar outros endereços. Em vez 
de começar no endereço 4000, em hexa, 
use AO00, também em hexa. 

Note que nem todas as posições da 
área do banco precisam ser modificadas, 
havendo várias lacunas na listagem. 


4008: 00 00 50 54 54 54 44 44 
4010: 00 00 00 02 0A 2A ZA 08 
4018: 00 40 40 50 14 55 55 55 
4020: 02 0A OA 2A 28 2A ZA 2h 
4028: 00 00 00 00 00 05 15 55 
4030: 00 00 00 00 00 00 28 ZA 
4038: 00 00 00 40 50 54 55 55 
4040: 00 20 ZA ZA ZA ZA 2A 2A 
4048: 54 55 55 55 55 55 05 51 
4050: 2A 2A 2h 2A 2h 00 ZA 2A 
4055: 55 55 55 55 55 55 55 85 
4060: 00 00 OA ZA ZA ZA ZA ZA 
4068: 00 00 00 01 15 55 55 55 
4070: 00 DO 00 00 00 02 DA ZA 
4078: c0 DO Dá Dá Cá cá cá 80 
4080: AA BA B2 BO 80 80 80 80 
4088: 80 BO BO 80 CO CO DO DO 
4090: AA AA AA AA BA BA 82 82 
4098: Bl 81 81] 81 BO 80 80 80 
40A8B: DO CO 80 80 BO BO 80 B0 
40B0: BA B2 BO B0 80 80 BO BO 
40c8: CO CO 90 90 84 B4 B1 81 
40F0: 00 00 20 28 28 28 ZA ZA 
40F8B: 40 54 55 55 55 55 55 55 
4100: 2A 2A 2A ZA 2A 2h 2h 2h 
4108: 55:55 55 588 5555 55 5 
4110: 2A 2A 2A 2A 2A 2h 2A ZA 
41180: 55.55: 55 595 353.55 95 55 
4120: ZA ZA 2h 2A 2h 2h 2h ZA 
4aioa: 01 15 55 55 55:55 35 55 
4130: 00 00 02 0A OA OA ZA ZA 
4148: 10 14 54 54 54 00 00 00 


4150: 
4158: 
4160: 
4168: 
4170: 
417B: 
4180: 
4188: 
4190: 
4198: 
41A0: 
41A8: 
g41BO0: 
41cB: 
41DO: 
41DB: 
41EO0: 
41FB: 
4200: 
4230: 
4238: 
4240: 
4248: 
4250: 
4258: 
4260: 
42668: 
4270: 
4280: 
4288: 
4290: 
4298: 
42hA0: 
42hA8B: 
42B0: 
42BB: 
42co0: 
42c8: 
42D0: 
42DB: 
42E0: 
42E8: 
42Fo0: 
4308: 
4310: 
4318: 
4320: 
4338: 
4340: 
4370: 
4378: 
4380: 
43BB: 
4390: 
4398: 
43A0: 
43h48: 
43B0: 
4448: 
4450: 
4470: 
4478: 
44DO: 
4500: 
4508: 
4510: 
4518: 
4520: 
4528: 
4530: 
4590: 
4598: 


00 
ao 
2h 


co 


02 
44 
2h 
55 
2h 
55 
2h 
51 
2h 
55 
2h 
55 
2h 
DO 
80 
80 
80 
DO 
AA 
2A 
55 
ZA 
55 
2h 
55 
2h 
55 
2A 
D5 


AAA ITA TA RA 


22 
15 
2h 
55 
2h 
55 
ZA 
aa 
ZA 
55 
2h 
55 
2h 
DO 
80 
80 
80 
DO 
82 
2h 
55 
2h 
55 
2h 
55 
2h 
55 
2h 
D5 
AA 
D5 


> 


D5 


5 


D5 


> 


D5 


> 


D5 


2h 
55 
2h 
55 
2h 


53 


2h 
51 
Zh 
55 
2h 
55 
ZA 
DO 
80 
85 
80 
DO 
82 
2h 
55 
2A 


E 


2h 
55 
2h 
55 
Zh 
D5 
AA 
D5 
AA 
D5 
AA 
D5 
AA 
D5 
AA 
D5 


AA AA 


D5 
AA 
D5 
co 
8A 
Dl 
82 
DO 
80 
28 
55 
2h 
DO 
80 
B5 
2h 
55 
DA 
co 
BA 
AB 
85 
AA 
00 
00 


00 
00 
00 
00 
00 
AS 
81 


D5 
AA 
D5 
co 
BA 
DI 
80 
D4 
80 
28 
55 
2h 
DO 
80 
85 
2h 
55 
OA 
co 
BA 
AB 
8) 

AM 
00 
00 
00 
00 
00 
00 
00 
AB 
81 


2h 
55 
2h 
55 


00 
00 
28 
55 
2h 
55 
2h 
45 
2h 
55 
2h 
55 
2h 
D4 
AB 
95 
Bo 
DO 
80 
2A 
55 
2h 
55 
2h 
55 
2h 
55 
2h 
D5 
AA 
D5 
AA 
D5 
AA 
D5 
AA 
D5 
AA 
D5 
AA 
D5 
AA 
D5 
co 


00 
00 
20 
55 
ZA 
55 
ZA 
45 
2h 
são 
2A 
55 
2h 
D4 
AA 
D5 
80 
DO 
80 
2h 
55 
ZA 
55 
ZA 
55 
2h 
55 
ZA 
D5 


00 
00 
20 
55 
2h 
55 
2h 
55 
ZA 
55 
2h 
55 
2h 
Dá 
AR 
DO 
82 
DO 
80 
2h 
55 
ZA 
55 
2h 
35 
2h 
55 
ZA 
D5 
AA 
D5 
AA 
D5 
AA 
D5 
AA 
D5 
AA 
D5 
Ah 
D5 
AA 
D5 
co 
8A 
Bo 
Bo 
D5 
80 
00 
40 
2h 
55 
AA 
55 


2h 


01 
00 
80 
AA 
AA 
80 
AA 
50 
3A 
15 
7A 
55 
ZE 
7D 
AO 


95 


| | 
| 
| 
| | | 


45BO: AA AA AA AA AA AB AS AB 
45BB: DO Dá D4 Dá DO Cl Cl DI 
45C0o: AB AA AA BA hA AA AB AB 
4a5cB: B5 95 95 95 95 91 95 95 
4610: AA AA AA AA AA AA AA AA 
4640: 50 50 54 54 54 FD 7F 5D 
464B: 3A JA 2A 22 00 00 20 ZA 
4650: 55 45 45 45 45 14 14 50 
4658: 2A 2h 6A PE 6A 2A 2A 2A 
4660: 55 55 05 01 01 01 05 55 
4668: 2E 3F 2A 20 00 00 20 6A 
4670: FD 5D 55 05 50 55 5D 57 
4678: 00 02 00 2A 2A 2E ZE 2E 
4680: 00 00 00 55 7F 5D 5D 5D 
4688: 00 00 00 02 ZA 3A 3A 3A 
4690: 00 00 50 14 15 55 55 55 
4698: 20 ZA 2A 2A 2h 3E 0E OF 
46A0: 01 05 05 05 04 04 04 00 
46DB: DS D5S D4 D4á D4 D5 D5S DS 
46E0: BO AA AA AA AA AA AA AA 
46EB: BO D5 DS DS DS DS D5 DS 
46Fr0: AB AA AA AA AA AA AA AA 
46FB: D5 DS D5 D5 D5 D5 DS D5 
4700: AA B2 AA AA B2 BO BO BO 
4708: 95 95 D5 D5 Dá D4 94 BO 
4710: 80 AS BO 80 88 BS AB AA 
4718: BO Bl Bl 681 B1 81 8181 
4750: AA AA AA hA AA AA AA AA 
4780: 54 50 00 00 00 00 00 00 
4788: 3A OA 00 00 00 00 00 00 
4790: 50 40 40 00 00 00 00 00 
4798: 68 6A 62 2A OA 2A 28 00 
47hO: 5SF 57 55 DS 55 00 55 55 
47AaB: 2B 28 2B 2F 2A 00 ZA ZA 
47B0: 57 57 57 15 11 04 05 01 
47BB: 3F 2B 02 00 00 00 00 00 
47co: 55 55 00 00 00 00 00 00 
47CB: 7TE ZA 00 00 00 00 00 00 
47D0: 55 55 55 54 50 40 40 00 
47DB: 0B 03 ZA 03 02 02 0A 2A 
47E0: 00 10 05 10 00 00 00 00: 
4810: B0 80 80 AO AO AO AO AQ 
4818: D5 DS D5 D5 D5 D5 DS D5 
4820: AA AA AA AA AA AA AA AA 
4B2B: D5 DS DS D5 DS DS DS D5 
4830: AA AA AA AA AA AA AA AA 
4838:  D5 D5 DS D5 DS DS DS D5 
4840: B2 BA BA BA BA BA B2 82 
4848: CO COCO DO DO DO 94 95 
4850: AA BA BA B2 B2 BO BO BO 
4888: 00 00 00 00 CO CO CO DO 
4890: AA AA hA AA AA AA AA AA 
4898: 00 00 00 00 B1 81 81 85 
4948: BO BO BO 80 CO DO DO D4 
4950: AO AO AO AB AA AA AA AA 
4958: 95 95 95 95 95 85 B5 81 
4960: AA AA AA AA AA AA AA AA 
4968: 681 81 81 81 81 B1 81 81 
4978: Dá DO DO DO DO DO DO DO 
4980: B2 82 B2 AZ AZ AA AA AA 
498B: D5 95 95 85 85 81 B1 80 


Para gravar o banco na fita use: 
4000.5000 W 

No TK-2000 use: 

AO00.B000 W "nome” 


Isto deve ser digitado ainda dentro do 
monitor. Quem tiver unidade de disque- 
te pode utilizar o gerador para gravar O 
banco. 





A E O O 


DID F Você quer proteger seus programas 
| | (Ls contra a “pirataria ou a mera 


curiosidade? Veja aqui as técnicas 


“ | 5// | | utilizadas pelos profissionais na 
ca) [ug IN. | 6) montagem de travas e armadilhas. 











E | OQUESEPODE FAZER PARA 

PROTEGER PROGRAMAS BASIC 
E | PROGRAMAS AUTOCARREGÁVEIS: 
O QUESÃO E O QUE FAZEM 
TOO PROGRAMAS 


Nunca é demais dar a um programa 
um toque profissional, sobretudo depois 
de um grande esforço para deixá-lo “re- 
dondinho"'. Nesse sentido, você pode 
fazer duas coisas: melhorar a apresen- 
tação do programa e providenciar-lhe 
uma proteção razoável, de modo que 
suas técnicas especiais fiquem, ao me- 
nos, obscurecidas para o público. 

Algum cuidado no acabamento é es- 
sencial se você pensa em comercializar 
seu programa — especialmente se pre- 
tende negociá-lo com uma software- 
house, Os recursos que você deve utili- 
zar para dar-lhe uma melhor apresenta- 
ção foram discutidos anteriormente; as- 
sim, focalizaremos aqui as técnicas dis- 
poníveis para garantir alguma proteção 
ao seu trabalho, 

A proteção de um programa BASIC 
depende de armadilhas colocadas den- 
tro do próprio programa. Os escritos em 
código de máquina podem receber um 
tratamento bem mais sofisticado. 

Não existem restrições de nenhum ti- 
po quanto ao emprego de armadilhas 
para evitar as cópias “piratas * ou a lis- 
tagem de um programa por curiosos. 
Quantas delas serão colocadas no pro- 
grama é questão para você decidir. 

De qualquer maneira, convém sem- 
pre se lembrar de que não se conhecem 
métodos absolutamente seguros de evi- 
tar que um programa seja copiado. Mui- 
tas pessoas encaram os programas pro- 
tegidos como um desafio e não desistem 
até que ele seja vencido. Outras se em- 
penharão em listar o programa para 
examiná-lo, adaptá-lo às suas necessida- 
des ou, simplesmente, aprender. 


Ainda que você tenha muita imaginação 
e domine as técnicas necessárias para 
montar as mais fantásticas armadilhas, 
seu programa nunca estará totalfente 
protegido dos olhares curiosos. 

Mas, combinando determinados recursos — 
alguns mais simples, outros nem tanto —, 
você pode dificultar tanto o trabalho 

do “pirata” que ele se sentirá 

tentado a abandonar sua tarefa. 


e mem em mes... ..e 








INTERDEPENDENTES 
= COMO DESATIVAR 

OS COMANDOS SAVE E LIST 
E PEQUENAS ARMADILHAS 


“PARA O SEU COMPUTADOR 





| PRIMEIROS PASSOS 


Um dos métodos para proteger pro- 
gramas consiste em introduzir neles vá- 
rias armadilhas simples. Elas não impe- 
dem que alguém com conhecimento da 
máquina abra o programa, mas tornam 
a tarefa bem mais trabalhosa. Infeliz- 
mente, esse método dificulta também a 
elaboração do programa. Além disso, 
ele complica a depuração de erros, já 
que as armadilhas podem estar ativas 
durante a execução do programa. 

As travas mais simples são as que in- 
troduzem no programa mudanças que 
tornam impossível o uso dos comandos 
SAVE, LIST e outros. Como elas só se 
ativam após a execução do programa, 
não criam os problemas de depuração 
mencionados acima. 


AUTO CARREGAMENTO 





Pode-se obter uma proteção bem me- 
lhor fazendo com que o programa seja 
executado automaticamente depois de 
carregado. No processo normal de car- 
regar um programa (LOAD), os coman- 
dos são digitados no modo direto. Mas 
eles podem ser chamados por um pro- 
grama à parte, denominado programa 
de autocarregamento (bootstrap). Es- 
te e escrito em BASIC ou código de má- 
quina, dependendo das tarefas especifi- 
cas que deve executar. Na sua forma 
mais simples, pode ser algo como: 


10 LOAD "NOME PROXIMO PROGRAMA” 


A execução desse pequeno programa 
carregaria para a memória do micro o 
programa cujo nome fosse especificado. 
Obviamente, o uso de uma linha como 
esta é bem específico. Mas esse tipo de 
programa pode ser empregado para fa- 
zer muito mais, sendo bastante útil pa- 
ra programação suplementar — como 
montar páginas-títulos, gráficos etc. 

Estas incluem poderosas armas de 
proteção de um programa BASIC, que 
alteram determinados comandos do sis- 
tema. No nosso caso, o programa de 
auto-carregamento funciona como um 


inicializador do sistema que permite que [E 


seu programa seja carregado e executado. 








Vários tipos de programas comerciais 
empregam bootstraps, muitas vezes 
gravados na forma de programas patro- 
cinados, onde cada parte é carregada em 
sequência. Lembre-se de que, normal- 
mente, um programa BASIC apaga o 
anterior ao ser carregado. Assim, se vo- 
cê utilizar essa técnica, carregue antes os 
módulos em linguagem de máquina e, 
depois, o BASIC. 

Com programas patrocinados, a pro- 
teção pode ser determinada por um cer- 
to grau de interdependência entre um ar- 
quivo (parte do programa) e outro. Nes- 
te caso, um arquivo checa um valor de 
memória determinado por outro. Pode- 
se ainda acrescentar um programa que 
cheque um arquivo de dados especial co- 
locado após o programa principal. Em 
ambas as alternativas, a falta de qual- 
quer um dos módulos provoca um erro 
e impede que o programa funcione. 

Os bootstraps oferecem mais uma 
vantagem: com sua utilização, o tempo 
de carregamento dos programas na me- 
mória diminui, porque o código de má- 
quina e os dados podem ser colocados 
diretamente na memória. Esse progra- 
ma dispensa, assim, o uso de declara- 
ções DATA do BASIC, que só funcio- 
na após o programa começar a ser exe- 
cutado. 





AUTO-EXECUÇÃO 


A utilização de um programa de 
autocarregamento não é muito simples 
no TRS-Color (usando-se o cassete). 
Esse computador não dispensaria cha- 
madas especiais do sistema, o que não 
é possível com o BASIC. No Spectrum, 
porém, para executar um programa a 
partir de outro basta usar o comando 
apropriado em algum lugar do progra- 
ma de autocarregamento. 


990 
AMA” 


LOAD "NOME DO PROXIMO PROGR 


Grave (SAVE) este segundo progra- 
ma usando SAVE “NOME DO PRO- 
XIMO PROGRAMA" LINE1I — ou o 
número de linha que represente o início 
do programa. Escolhendo um número 
de linha maior, você poderá incluir avi- 
sos ou dados para serem lidos (PEEK) 
e checados em linhas REM anteriores à 
linha inicial de execução. 


No MSX também é muito simples 
executar um programa a partir de ou- 


tro: basta usar o comando LOAD com 
a opção R. Mas, para que tudo dê cer- 
to, O programa a ser executado deve es- 
tar gravado no formato ASCII, isto é, 
com a instrução SAVE. Na sua forma 
mais simples, o programa seria: 


100 LOAD "NOME DO PROGRAMA”,R 


rm 


As técnicas que seguem valem apenas 
para micros com disquete. 

Veremos, primeiro, como montar um 
programa de execução automática. O 
método mais simples consiste em intro- 
duzir no programa, que é automatica- 
mente carregado e executado ao se ligar 
o computador, uma linha do tipo 
PRINT CHR$(4); “RUN PROGRA- 
MA**. Mas a utilização de um arquivo- 
texto é mais elegante, e exige apenas que 
o programa com que o disquete foi ini- 
cializado contenha esta linha: 


10 PRINT CHR$3(4);"EXEC AUTORUN” 


AUTORUN é um arquivo-texto que 
será executado como se as instruções es- 
tivessem sendo digitadas a partir do te- 
clado. Para criá-lo, digite e execute este 
programa: 


10 DS = CHARS (4) 

20 PRINT D3;" OPEN AUTORUN” 
30 PRINT D$S;"WRITE AUTORUN” 
40 PRINT "NOMON C,1,0” 

50 PRINT "RUN BP35” 


60 PRINT DS;"CLOSE” 

Com esse arquivo, qualquer tentati- 
va de interromper o programa será in- 
terpretada como um erro, E isso será 
aproveitado por uma rotina de trata- 
mento de erros no programa principal. 

Digite este programa e salve-o, por 
exemplo, com o nome de BP35: 


10 HOME 
20 PRINT "ALO 4 
30 GOTO 20 


Em seguida, digite “EXEC AUTO- 
RUN”. O programa será executado pe- 
los comandos do arquivo AUTORUN. 
Se inicializou o disquete como sugeri- 
mos, seu programa BP35 terá execução 
automática toda vez que o computador 
for ligado com esse disquete no drive 1. 





O USO DE VARIÁVEIS DO SISTEMA 


A auto-execução não basta para afas- 
tar os curiosos. E necessário utilizar ou- 
tros recursos para evitar que os progra- 
mas sejam interrompidos, listados ou al- 
terados. Um desses recursos consiste em 





alterar o modo como o sistema reage 
quando se faz uma chamada específica 
— por exemplo, a sub-rotina de listagem 
(LIST). 

Cada computador tem um sistema 
operacional e um interpretador BASIC. 
A maior parte da informação é guarda- 
da na memória apenas para leitura — 
ROM —, mas parte dela é transferida 
para a memória de acesso aleatório — 
RAM —., quando se liga o computador. 
Esta informação pode ser modificada 
para alterar o funcionamento do siste- 
ma, permitindo que se incorporem aos 
programas métodos sofisticados de 
proteção. 

Como estaremos interferindo na pró- 
pria forma de trabalho do computador, 
precisaremos ter em mãos uma listagem 
completa das variáveis e rotinas do sis- 
tema, e um borh mapa de memória. Ve- 
ja o seu manual de referência. 

A transferência de parte da informa- 
ção do sistema da ROM para a RAM, 
possibilita a alteração do valor de algu- 
mas variáveis. Estando na RAM, esta 
informação torna-se vulnerável a qual- 
quer modificação que se queira fazer. 

Um tipo especial de variável do sis- 
tema é o apontador da RAM. Este con- 
siste, em geral, de dois endereços con- 
secutivos que guardam o endereço de 
uma sub-rotina especifica. Se alterarmos 
tal endereço, o sistema será redireciona- 
do sempre que esta sub-rotina for cha- 
mada. Os melhores apontadores para a 
proteção de programas são os que se re- 
ferem aos comandos LIST, SAVE, IN- 
TERRUPT e RESET. Os últimos co- 
mandos fogem ao escopo deste artigo. 


ESTUDO DE CASOS 





É muito difícil dar total proteção aos 
programas, especialmente se se quer evi- 
tar um maior envolvimento com códi- 
go de máquina. Os métodos para cada 
máquina diferem muito, já que os sis- 
temas operacionais também são bastan- 
te diferentes. Mas vale a pena analisar 
algumas possibilidades. 


Uma das maneiras mais simples de 
marcar um programa consiste em colo- 
car uma mensagem que não possa ser re- 
tirada. Para reforçar a proteção, con- 
vém acrescentar uma rotina que verifi- 
que a presença da marca. | 

Inicialmente, encontre o endereço da 
área reservada para programas em BA- 
SIC. Esse endereço (variável de sistema 
PROG) é armazenado nas posições 
23635 e 23636 e pode ser determinado 











pela instrução: PRINT PEEK 23635 + 
256 * PEEK 23636. Conhecendo o va- 
lor de PROG, você pode colocar qual- 
quer número em PROG + 1, alterando 
o número da primeira linha do 
programa. 

O segredo é deixar a linha com o nú- 
mero O, já que não é possivel apagar a 
linha O. Suponhamos que a primeira li- 
nha do programa seja: 


10 REM (C) NOVA CULTURAL 1986 


Digite este comando: 


POKE (PEEK 23635 + 256 * PEEK 
25636) + 1,0 


Pronto! A linha 10 virou linha 0. 

O mesmo pode ser feito pelo progra- 
ma de autocarregamento. Mas, 
tratando-se de um programa auto- 
executável, a maneira óbvia de 
interrompê-lo é teclando <BREAK>, 
que coloca uma mensagem na parte 
de baixo da tela. Suponhamos, po- 
rém, que esta não aceite a mensagem. 
Na lista das variáveis de sistema, vê-se 
que DFSZ (no endereço 23659) armaze- 
na o número de linhas da parte inferior 
da tela (geralmente 2). Alterando este 
valor para 0, o computador detectará 
um erro assim que a mensagem tentar 
aparecer na tela, 

Como não se pode entrar tais instru- 
ções no modo direto, digite: 


10 POKE 23659,0 
20 PRINT AT 5,5; RND 
30 GoTo 20 


Execute o programa. Se pressionar 
<BREAK>, provocará um erro. 

Quando usar este método, lembre-se 
de que, se seu programa contiver situa- 
ções que produzem mensagens como 
INPUT? ou seroll?, o erro será inevitá- 
vel. Assim, para entrada de dados, use 
INKEYS. 

O ““pirata”' pode evitar que um pro- 
grama se auto-execute, carregando-o 
com MERGE. Mas será impossível fazê- 
lo se o programa for gravado em códi- 
go. As variáveis do sistema, o progra- 
ma e a memória livre devem ser grava- 
dos acima do buffer da impressora. 

A gravação começa com CODE 
23552, que é o início da área das variá- 
veis do sistema. O número de bytes é 
N-23552, onde N é qualquer número 
maior que STKEND (o endereço do iní- 
cio do espaço livre). Obtém-se este en- 
dereço com PEEK 23653 + 256*PEEK 
23654. | 

Coloque estas linhas no início do seu 
programa: 

1 SAVE "NOMEPROG” CODE 23552, 

N-23552 
2 POKE 23659,0 





E E a E 
| ] | 
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Agora, iguale N ao endereço descri- 
to acima e digite GOTO 1. O programa 
será gravado. O comando LOAD “NO- 
MEPROG” CODE fará com que o pro- 
grama seja executado. 


Im 

Vimos como proceder para que um 
programa inicial carregue e execute o 
programa principal. Mas isso não é sufi- 
ciente. Um simples <CTRL> <STOP> 
permite que se interrompa o programa 
para que ele seja listado. 

No MSX, pode-se evitar uma inter- 
rupção desse tipo com facilidade. A 
idéia é direcionar o programa para uma 
sub-rotina especial toda vez que se ten- 
tar uma interrupção com 
<CTRL><STOP>. Para isso, 
utilizam-se as instruções STOP ON, que 
fazem com que o BASIC verifique a to- 
do instante se uma interrupção foi ten- 
tada, e ON STOP GOSUB XXXXX, 
que desvia o programa para uma deter- 
minada linha em caso positivo. Digite 
o seguinte: 

10 ON STOP GOSUB 1000 

20 STOP ON 

30 CLS 

40 LOCATE 10,12:PRINTRND(1) :GOT 

o 40 

1000 P=P+1 

1010 CLS:LOCATE 10,10:PRINT"Não 
seja curioso!":BEEP:FOR S=1 TO 
1000 :NEXT 

1020 IF P=3 THEN NEW: END 

1030 CLS:RETURN 

Não se esqueça de gravar o progra- 
ma antes de executá-lo. Depois, pare-o 
se puder! 


Sd | 


e | 


eso -—— o 


Você já sabe como proceder para que 
seu programa seja automaticamente exe- 
cutado; veja agora como impedir que o 
interrompam, ou seja, como impossibi- 
litar sua listagem. Para isso, fazemos 
com que toda tentativa de interrupção 
— por meio do <CTRL> <C> oudo 
<CTRL> <RESET> — seja interpre- 
tada como um erro, desviando a execu- 
ção para uma rotina especial. Para que 
o micro interprete .o <CTRL> <RE- 
SET > como um erro (0 <CTRL> <C> 
é normalmente interpretado como tal), adi- 
cione as linhas seguintes ao programa do 
arquivo AUTORUN. 


45 PRINT "POKE 40286,35” 


AP 
E) 


REA. |) 










he 


o 


E 


RNA 


"POKE 40287,216" 





46 PRINT 


Elimine o AUTORUN já existente e 
execute o programa. O novo arquivo 
contém os dois POKE que mudam o 
comportamento do computador em re- 
lação ao <RESET>. Mas, para que 
possamos tirar proveito dessa mudança, 
uma rotina de erros deve ser inserida no 
programa principal: 


5  ONERR GOTO 1000 

1000 P = P+1 

1010 IF P = 3 THEN PBRt 6 
1020 PRINT CHARS (7);: RESUME 
NEXT 


Grave o programa alterado. Desligue 
o computador e ligue-o novamente. 
Tente parar o programa... | 

Pode ocorrer, porém, que o curioso 
se lembre de olhar para o diretório do 
disco e carregar o seu programa direta- 
mente, sem executá-lo; assim, poderá 
listá-lo, Para confundi-lo, inclua no no- 
me do programa, no momento de gra- 
var (SAVE), alguns caracteres de con- 
trole, que ficarão invisíveis. Para fazer 
isto, basta digitar junto do nome do pro- 
grama um ou mais <CTRL> <letra>, 
onde a letra pode ser A, B etc. Evite o 
CeoX. 
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Os micros da linha ZX-81 possuem bons 
recursos de edição. Com o comando 
EDIT e as teclas de movimentação do 
cursor, você pode alterar ou duplicar 
rapidamente uma linha de programa. 


Devido à sua natureza “conversacio- 
nal”, todos os interpretadores da lingua- 
gem BASIC incluem alguns recursos de 
edição de programas, ou seja, técnicas 
de entrada e alteração das linhas que o 
compõem. 

Como vimos em artigos anteriores 
sobre edição de programas em outras li- 
nhas de microcomputadores, o primei- 
ro interpretador BASIC, desenvolvido 
na década de 60 na Universidade de 
Dartmouth, nos EUA, fixou os recur- 
sos mais elementares de edição: nume- 
ração, inserção, apagamento e listagem 
de linhas. Estes recursos, adotados pos- 
teriormente em todos os dialetos BASIC 
que surgiram, não davam ao programa- 
dor a possibilidade de alterar caracteres. 
Assim, para corrigir um único caracte- 
re errado, ele teria que digitar toda a li- 
nha novamente. 

Para poupá-lo desse trabalho, 
desenvolveram-se comandos como o 
EDIT, presentes nos micros da linha 
Sinclair, TRS-80 e TRS-Color. O co- 
mando EDIT dos micros da linha ZX-81 
opera em uma linha de cada vez. 


DIGITAÇÃO DE PROGRAMAS | 





No ZX-81, cada linha é digitada de 
uma vez, precedida de um número. 

A parte inferior da tela do ZX-8] 
destina-se à digitação de linhas. Ao ser 
ligado, o computador exibe um cursor 
de texto — um retângulo em vídeo in- 
verso — contendo a letra K. Esta é a 
chamada linha de edição da tela. À me- 
dida que você vai digitando a linha, por 
meio do teclado, este cursor vai se des- 
locando à frente dos caracteres. Durante 
o deslocamento, ele pode mudar de ti- 
po (passar para tipo L, tipo G, tipo F 
etc.). 

Quando se pressiona a tecla <EN- 
TER> ou <RETURN>, a linha é 


eee 


completada e inserida no ponto certo do 
programa. Enquanto isso não ocorre, 
pode-se modificar a linha à vontade. 

Três teclas de controle são utilizadas 
para se proceder às modificações: as te- 
clas com as flechas para a esquerda e pa- 
ra a direita (+ e —), que devem ser acio- 
nadas simultaneamente com a tecla 
<SHIFT>, e a tecla de apagamento 
(chamada de DELETE ou RUBOUT, 
conforme a marca do computador, 
e que, no ZX-81, corresponde à 
pressão simultânea das teclas 9 e 
<SHIFT>). 

Ao ser acionada, a tecla de apaga- 
mento pode eliminar um caractere ou 
uma palavra-chave do BASIC de uma 
vez. O restante da linha se desloca para 
a esquerda, de modo a preencher os cla- 
ros deixados. 

O ZX-81 dispõe do modo de inserção 
automático, ou seja, se digitarmos ca- 
racteres quando o cursor estiver no meio 
de uma linha, estes serão inseridos, por 
intermédio do deslocamento do restan- 
te da linha para a direita. Para sobre- 
por caracteres (escrever sobre caracteres 
já existentes), é necessário primeiro 
apagá-los. 


| O COMANDO EDIT 


Uma vez pressionada a tecla <EN- 
TER>, a linha digitada passa a fazer 
parte do programa. Se, depois disso, vo- 
cê digitar apenas o seu número, e pres- 
sionar <ENTER> de novo, ela será 
apagada. Por outro lado, se você digi- 
tar seu número, seguido de novos co- 
mandos ou instruções, estes substituirão 
a linha existente no programa. 

Um recurso de edição que faz falta 
no ZX-81 é o comando DELETE (ou, 
ainda, DEL, em alguns computadores), 
que apaga grupos de linhas de uma vez 
só. Os usuários desse micro precisam 
sempre digitar os números de cada uma 
das linhas a serem apagadas, um a um, 
seguidos de <ENTER>. 

Para modificar uma linha já existen- 
te, sem precisar redigitá-la inteiramen- 
te, pode-se recorrer ao comando EDIT. 
Para isso é necessário entender o con- 
ceito de cursor de linhas. 





bo) COMO EDITAR LINHAS 
| DE UM PROGRAMA BASIC 
E | OS MOVIMENTOS DO CURSOR 
Ei O COMANDO EDIT 
E  CONSOLIDE AS MODIFICAÇÕES 


Se você olhar para uma listagem de 
programa na tela, perceberá que existe 
sempre um retângulo em vídeo inverso, 
contendo o sinal de maior (>) em seu 
interior, e que aponta para uma das li- 
nhas na tela. Esse retângulo é o cursor 
de linhas. Para deslocá-lo, basta pres- 
sionar uma ou mais vezes uma das te- 
clas com a flecha para cima ou para bai- 
xo (7 ou 4). 

Agora, se você pressionar simulta- 
neamente as teclas < SHIFT > e 1, a li- 
nha apontada pelo cursor de linhas apa- 
recerá na linha de edição. 

Você poderá usar, então, todos os 
procedimentos de edição: movimenta- 
ção do cursor de texto, apagamento, in- 
serção etc. Tudo funciona da mesma 
maneira, até que você pressione a tecla 
<ENTER>. Ao fazê-lo, a linha modi- 
ficada irá substituir a que foi chamada 
anteriormente pelo EDIT. 


DUPLICAÇÃO DE LINHAS 





A duplicação de linhas é um dos re- 
cursos mais interessantes do ZX-81. O 
número da linha pode ser editado nor- 
malmente. Assim, se apenas ele for mo- 
dificado, a linha com o número origi- 
nal mantém-se no programa, e a mes- 
ma linha, com nova numeração, é inse- 
rida no ponto correto. 

Por outro lado, se, além do número 
da linha, também o seu conteúdo for 
modificado, uma linha diferente será 
automaticamente gerada. 

Portanto, para que uma linha possa 
ser editada pelo comando EDIT, ela pre- 
cisa estar listada na tela (use o coman- 
do LIST número, para isto). Desloque 
o cursor de linha até ela, e pressione o 
comando EDIT. 

Para agilizar o processo de edição de 
várias linhas de um programa extenso, 
você pode utilizar um pequeno truque. 
Em vez de pressionar repetidas vezes as 
teclas de controle do cursor de linhas, 
até chegar à linha que você deseja, digi- 
te o comando LIST, seguido do núme- 
ro dessa linha. Isto a colocará no alto 
da tela, com o cursor de linhas automa- 
ticamente apontado para ela. Basta, en- 
tão, pressionar o comando EDIT. 











SÍMBOLOS 


GRÁFICOS NO MSX 





Os micros da linha MSX dispõem de 
caracteres gráficos que podem ser 

entrados diretamente pelo teclado ou 
usados dentro de um programa. Veja 
como explorar este recurso especial. 


Os microcomputadores da linha 
MSX são extremamente versáteis do 
ponto de vista da programação gráfica. 
Em artigos anteriores, vimos como as te- 
clas gráficas (SCREEN) podem ser pro- 
gramadas, em média e alta resolução, 
por meio de instruções poderosas como 
LINE, CIRCLE, PAINT, PSET etc. 

O MSX apresenta, ainda, um recur- 
so gráfico adicional que é pouco explo- 
rado. São os caracteres gráficos, dispo- 
níveis para o programador por meio de 
dois procedimentos: entrada direta pe- 
lo teclado e inserção através das funções 
do BASIC CHRS$ e STRINGS. 

O que são caracteres gráficos? Como 
você já sabe, os caracteres que aparecem 
no vídeo têm códigos numéricos intei- 
ros, entre O e 255; cada caractere cor- 
responde, portanto, a um byte da me- 
mória do vídeo. Parte dessa codificação 
está convencionada internacionalmente 
pelo chamado código ASCII, que vai de 
32 a 126. Os códigos de O a 31 são nor- 
malmente utilizados para funções de 
controle do vídeo, e dependem do tipo 
de computador. O mesmo acontece com 
os códigos de 127 a 255. Nesta faixa, ca- 
da fabricante usou os códigos de uma 
maneira, em geral para acomodar carac- 
teres em outros idiomas que não o in- 
glês (é o caso do MSX, existente no Bra- 
sil) ou para especificar caracteres gráfi- 
cos. Estes tanto podem ser tipos espe- 
ciais, para a imagem de um rosto sor- 
rindo ou uma nota musical, como blo- 
cos gráficos formando linhas, ângulos 
e cantos. 


GRÁFICOS DA ROM 


Tais caracteres são também chama- 
dos de gráficos da ROM, pois já vêm 
pré-programados. No MSX, os caracte- 
res especiais ocupam duas faixas da ta- 
bela de caracteres: 


- q faixa de 1 a 31 
- a faixa de 144 a 254 


Nestas faixas, os caracteres gráficos 
propriamente ditos encontram-se disper- 
sos em vários pontos da tabela, entre- 
meados com caracteres de outros idio- 
mas, com o alfabeto grego, símbolos 
matemáticos etc. 

Os caracteres gráficos que mais nos 
interessarão neste artigo são os blocos 
empregados na formatação de tabelas, 
de formulários de entrada ou na com- 
posição de quaisquer outros desenhos 
formados por linhas retas. A utilização 
de caracteres gráficos, nesses casos, tem 
a vantagem de não complicar a progra- 
mação, misturando tela gráfica com tex- 
to, O que nos permite recorrer a coman- 
dos mais simples, como o LOCATE, o 
PRINT, o INPUT etc. 


ENTRADA PELO TECLADO 





Assim como os caracteres convencio- 
nais do ASCII (demarcados sobre as te- 
clas do microcomputador), os caracte- 
res especiais e gráficos podem ser entra- 
dos pelo teclado. Para isso, pressiona- 
se simultaneamente uma ou mais de 
três teclas de função — <GRAPHO>, 
<CODE> ou <SHIFT> —, com ou- 
tra tecla normal do teclado. Com isso, 
o caractere desejado aparece diretamen- 
te na tela (por exemplo, dentro de uma 
cadeia alfanumérica). 

Com o programa abaixo, você verá 
como entrar caracteres pelo teclado. Ele 
desenha uma tabela simples na tela, 
usando blocos gráficos, e depois coloca 
os nomes digitados pelo usuário nas li- 
nhas da tabela. 
200 CLS 
210 PRINT” 
220 PRINT” 
230 PRINT" 
240 FOR I=1 TO 5 
250 PRINT” 
260 PRINT” 
270 NEXT 1 
280 PRINT" 
290 PRINT” 
300 FOR I=1 TO 6 
310 LOCATE 0,21:PRINT STRINGS (3 
0,32) 

320 LOCATE 0,21:LINE INPUT "NOM 








a “SÍMBOLOS GRÁFICOS 

Ia ENTRADA PELO TECLADO 

o AS FUNÇÕES 
CHR$ E STRING$ 

Ea TABELA DE REFERÊNCIA 

E: ":NS 

330 LOCATE 1, (1*42)+1:PRINT USIN 

G "AFI; 

340 LOCATE 7, (1*2)+1: PRINT LEFT 

S (N$,10); 

350 NEXT 1 


360 LOCATE 0,21:PRINT "FIM 
": END 


Os traços são teclados na seguinte se- 
quência: 


<GRAPH> R 
<GRAPH> - 
<GRAPH> T 
<GRAPHO> - 
<GRAPH> Y 
<SHIFT> <GRAPH> 
<GRAPH> F 
<GRAPH> - 
<GRAPH> G 
<GRAPH> - (1] vezes) 
<GRAPH> H 


Linha 210: | 
(4 vezes) 


(11 vezes) 


Linha 220: 
Linha 230: 
(4 vezes) 


como a linha 220 
como a linha 230 
como a linha 220 


Linha 250: 
Linha 260: 
Linha 280: 
Linha 290. <GRAPH> V 
<GRAPHO> - 
<GRAPH> B 
<GRAPHO> - 
<GRAPH> N 


(4 vezes) 


(11 vezes) 


Há duas desvantagens nesta manei- 
ra de entrar caracteres gráficos. Primei- 
ro, as teclas não têm qualquer marca- 
ção que auxilie o usuário a achar o grá- 
fico correto; assim, é preciso consultar 
o manual, o que torna o processo bas- 
tante trabalhoso. Em segundo lugar, o 
programa não pode ser listado em uma 
impressora não gráfica, ou que não se- 
ja própria para o MSX. 


CARACTERES GRÁFICOS NO PROGRAMA 





Para especificar caracteres gráficos 
dentro de um programa, sem precisar 
digitá-los diretamente, podemos usar as 
funções CHRS$ e STRINGS: com o nú- 
mero de código do caractere desejado, 
elas permitem que os caracteres nor- 
mais, especiais e gráficos com códigos 
na faixa de 32 a 254 sejam impressos na 
tela a partir de um programa. Por exem- 
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CARACTERES GRÁFICOS DO MSX 





















































Código Teclas Caractere Código Teclas Caractere 
1 GRAPH ' e 192 GRAPHU | Ls 
| 2 — SHIFTGRAPH' O 193 SHIFT GRAPHD Ny 
3 SHIFT GRAPH o 194 GRAPH | e 
4 “SHIFT GRAPH C A . 195 SHIFT GRAPHO | 
[= GRAPH do 196 GRAPH A [E] 
6 GRAPH C 4 197 smeTGRapH! 
| 8 sHFETGRAPH9 HH 198 GRAPH J [) 
3... GRAPHO O 199 GRAPH D Pg 
10 SHIFT GRAPH O 200 GRAPHL A 
11 GRAPH M E) 201 SHIFTGRAPHL LJ 
12 SHIFT GRAPHM 4 202 sHiFT GRAPHS IE 
13 GRAPH , 203 SHIFT GRAPH Q 
“4 SHIFT GRAPH' 49 204 GRAPH Q 
15 GRAPH Z o 205 GRAPH E [1] 
16 SHIFT GRAPH G 13 + 206 SHIFT GRAPH E la 
17 GRAPH B A 207 GRAPHW  b) 
18 GRAPH T j 208  sHirTGRAPHW [4 
19 GRAPHH 4 209 sHirtGRArHS 
20 GRAPH F + 210 GRAPH S há 
21 GRAPH G + 211 SHIFT GRAPHN E) 
2. SHIFT GRAPH » | 212 SHIFT GRAPHF Lg 
23. | GRAPH - = 213 SHIFT GRAPH V [8 ' 
24 GRAPH R r 214  SHIFTGRAPHH a) | b 
25 GRAPH Y q 215 SHIFT GRAPHP | 8 | o 
26 — GRAPHV L 219. GRAPH P o) t 
27 GRAPH N ra 220 —GRAPHO EO : 
28 GRAPHX X 221 GRAPH K Do. 
29 GRAPH/ | 222 SHIFT GRAPHK [RB | 
30 GRAPH = N 223  sHirTGRAPHU MM | | : 
1 SmeroRAM. +  |248 shprGRAMZ O | Crpenti de ci apos | 
69 SHETGRAHA O |20  shFTGHAHC o | pci cora a mos | 
NO SHFTORAHY | 250  SHPTGRAHX é | Gr 
188 SHIFT GRAPH C O 254 SHIFT GRAPH A [e] e ros Aga pdoe and ( 
pressionar, simultaneamente, uma ou mais 


- Ega | Ú —- teclas de função e uma tecla normal. 








s* ma guerre 


res 


plo, para imprimir na tela a letra grega 
beta, digite: 


PRINT CHR$(225) 


Ou, então, para traçar uma linha re- 
ta de dupla espessura na tela, use: 


PRINT STRINGS (32,197) 


A função STRINGS$ (n,c) retorna 
uma cadeia de n caracteres com código 
c. Já os caracteres gráficos que se en- 
contram na faixa de 1 a 31 não podem 
ser impressos da mesma maneira, pois 
estes códigos têm funções de controle 
do vídeo, Para usá-los com a função 
CHRS, é necessário “avisar” o com- 
putador que o código será usado co- 
mo gráfico. Para isso, são emprega- 
dos dois bytes: CHRS(1), seguido de 
CHRS(n + 64), onde n é o código do ca- 
ractere gráfico na tabela. Por exemplo, 
PRINT CHRS$(1);CHR$(75) mostrará 


na tela o símbolo masculino. 

Esse método funciona também para 
a faixa de códigos gráficos que vai até 
191. O programa abaixo mostra na tela 
uma tabela de correspondência: 


LO KEY OFF:CLS:I1=0 


20 FOR N=1 TO 6 
30 I=I+1:IF 1>191 THEN GOSUB 10 
O: END 

40 PRINT USING "4H ";I; 

50 PRINT CHARS (1)+CHAS(1+64);" " 


60 NEXT N 

TO PRINT: PRINT 

BO L=L+1:IF L<1l0 THEN 20 

90 GOSUB 100:L=0:GOTO 20 

100 LOCATE 0,22 

110 PRINT "Pressione qualquer t 
ecla p/continuar” 

120 IF INKEYS="" THEN 120 

130 CLS:RETURN 


Se você substituir três linhas — 10, 
30 e 50 —, o programa servirá também 





para mostrar os códigos gráficos de 128 
a 254. 


10 KEY OFF:CLS:1=127 

30 I=1I+1l:IF 1>254 THEN GOSUB 
100: END 

50 PRINT CHRS(1I);" ”; 


Caso pretenda utilizar um caractere 
gráfico da faixa de 1 a 31 com fregiuên- 
cia num programa, armazene-o em uma 
variável alfanumérica, como mostra O 
exemplo abaixo. Os quatro simbolos dos 
naipes do baralho são armazenados em 
N$ (e seus nomes em E$): 


10 CLS 

20 FOR I=l TO 4 

30 READ ES(I) 

40 NS(I)=CHR$S (1) +CHRS (1+66) 

50 PRINT NS(I),ES(I) 

60 NEXT I 

70 DATA Copas, Ouros, Paus, Espada 
| 





JT E O RR SR 


| | | Os recursos sonoros do Spectrum são 
= | | | | limitados, se considerarmos apenas 


o comando SOUND. Porém, com código 


| Ê “15 | de máquina, poderemos produzir vários 
| | sons, de sirene a tiros de laser. 


Em geral, o endereçamento da me- 
mória é uma função do microprocessa- 
dor. Na maioria dos computadores 
domésticos, quando queremos usar um 
aparelho externo — como uma impres- 
sora, um televisor ou mesmo o teclado 
do computador — temos que fazê-lo por 
meio de uma posição de memória que ks detesta br 
está ligada a uma porta de saída. Porém, om au mm ENS + 2 PAi 
com micros que usam o Z-80, como o | 
Spectrum, por exemplo, pode-se ter 
acesso direto às portas, tanto em BA- 
SIC, com os comandos IN e OUT, co- 
mo em código de máquina, com in cout. 


À ET 


li 


AM 


AFINAL, O QUE É UMA PORTA? 


Uma porta é um canal de comunica- 
ção entre o microprocessador e o mun- 
do externo. Este inclui o teclado e tudo 
o que é periférico ao microprocessador, 
à RAM e à ROM. 

Já tivemos oportunidade de ver co- 
mo in é usado para dar acesso ao tecla- 
do. Os comandos OUT e out funcionam 
de modo semelhante, só que, em vez de 
receber dados, enviam-nos aos periféri- 
cos. Ambos têm acesso bem mais ver- 
sátil ao alto-falante do que o comando 
BASIC SOUND e podem ser usados, 
também, para controlar a moldura da 
tela. Entretanto, como o OUT é exces- 
sivamente lento, consideraremos apenas 
o comando out. 

Para gerar sons com out precisamos 
da velocidade da linguagem de máqui- 
na. Eles são obtidos por meio do movi- 
mento do cone do alto-falante para fora 
e para dentro. Movimentando-o uma 
vez, produzimos um clique, do tipo que 
se ouve ao ligar um aparelho de som. O 
truque está em repetir o movimento 
muitas vezes, e rapidamente. 

Teremos, assim, uma sucessão de cli- 
ques, que provocam um efeito similar 
a um zumbido. Quanto mais veloz for 
o movimento de vaivém do cone, mais 
agudo será o som resultante. 

A rotina Assembler apresentada a se- 
guir produz um som cuja tonalidade vai 
aumentando. Digite CLEAR 64599 e de- 
pois as linhas: 


10 REM orq 64600 
20 REM ld a, (23624) 
E30 REM rrca 





I 





































40 REM rrca 

50 REM rrca 

60 REM ld b,0O 

70 REM loop push bc 
BO REM xor 16 

90 REM out 254,a 
100 REM pause nop 
110 REM nop 

120 REM djnz pause 
130 REM pop bc 

140 REM djnz loop 
150 REM ret 


A porta 254, que controla o alto- 
falante, controla também a moldura da 
tela. Para que um comando out não mo- 
difique a moldura ao produzir um som, 
utiliza-se uma rotina em código destina- 
da a evitar o problema. 

Inicialmente, coloca-se no acumula- 
dor o valor da variável do sistema situa- 


a o O TER EE E E SORO 


Hi "A PORTA 254 
E | INSTRUÇÕES SHIFT E ROTATE 
E O USO DO ALTO-FALANTE 
E LAÇOS DE PAUSA 
Bi ACERTE O TOM 


do na posição 23624 da memória. As 
cores do Spectrum têm códigos que vão 
de O a 7. Normalmente, os bits que con- 
trolam a cor são os bits três, quatro e 
cinco. Contudo, quando estamos con- 
trolando a moldura via porta 254, os 
bits zero, um e dois encarregam-se da 
modificação das cores. 

Assim, para se ter a certeza de que 
a cor da moldura não será modificada 
pelo efeito sonoro, os bits três, quatro 
e cinco devem ser destocados três posi- 
ções para a direita (para o lugar dos bits 
zero, um e dois). 


SHIFT E ROTATE 





O deslocamento dos bits pode ser 
executado por vários comandos. Utili- 
zamos aqui rrea (rotate right with carry, 
on the acumulator, expressão em inglês 
que significa rotação para a direita com 
“vai um” no acumulador). Essa instru- 
ção movimenta todos os bits que estão 
no acumulador uma posição para a di- 
reita. É chamada de rotação porque co- 
loca o conteúdo do bit zero no bit sete, 
fazendo-o “dar a volta”, por assim di- 
zer. Um comando SHIFT — desloca- 


HE MODIFICAÇÃO DA MOLDURA 


“A ESCOLHA DA COR 


SINTONIA FINA 


mt 

mo A ESCOLHADAC 
bi] ACERTO DO TEMPO 
E 

s 


mento — moveria todo o conteúdo do 
acumulador um bit para a direita, mas 
preencheria o bit de reserva com zero. 
Seu emprego é mais adequado a opera- 
ções aritméticas: um SHIFT para a es- 
querda multiplica um número por dois, 
enquanto um SHIFT para a direita o di- 
vide por dois. 

Aqui, porém, utilizamos uma rotação 
porque queremos deslocar apenas três 
dos bits. O conteúdo dos demais não nos 
interessa. O comando rrca ainda copia 
o conteúdo do bit zero no bit carry — 
“vai um”. Mais uma vez, não importa 
o valor do carry. 

Para deslocar os bits de cor da mol- 
dura três posições para a direita, 
emprega-se rrca três vezes, o que equi- 
vale a dividir a cor da moldura por oi- 
to. Mas quando a cor — normalmente 
um número entre 0 e 7 — se encontrava 
nos bits três, quatro e cinco, estava mul- 
tiplicada por oito. 

Agora, quando usarmos o comando 
out, ele especificará a mesma cor de 
moldura que havia antes, e nenhuma 
mudança ocorrerá. 


ACERTE OS CONTADORES | 





O registro B funciona como um con- 
tador duplo. Para começar, colocare- 
mos OQ nele, e este valor será guardado 
na pilha por push bc. O registro B não 
pode ser guardado sozinho na pilha, já 
que os comandos de push e pop agem 
apenas em pares de registros. Precisa- 
mos, assim, guardar B juntamente com 
C. Como não usaremos o registro €, is- 
so não afetará o programa. 





“COMO PRODUZIR SONS 


O bit quatro da porta 254 controla o 
alto-falante. Alternando o valor desse 
bit, movimenta-se o cone do alto-falan- 
te, produzindo som. 

Alterna-se o bit quatro por meio da 
operação lógica ''ou exclusivo”. Faze- 
mos um '“'ou exclusivo” entre o valor do 
acumulador e dezesseis. Assim, se o bit 
quatro estiver ligado, valendo 1, ele se- 
rá desligado, passando a valer O — ou 
vice-versa. 








[OTIS 


O out 254,a envia o conteúdo do acu- 
mulador via porta 254. Em muitos As- 
semblers comerciais os comandos out e 
in precisam de colchetes envolvendo o 
número da porta. 


ACERTE O TOM 





A instrução nop, com o código hex 
O O, significa *''sem operação” — no 
operation. Ela não faz absolutamente 
nada, mas, como leva um certo tempo 
para ser executada — aproximadamen- 
te um microssegundo, ou seja, um mi- 
lhonésimo de segundo —, atrasa o mi- 
croprocessador na realização do laço. 
Por essa razão, é usada duas vezes nes- 
te programa. A velocidade com que o 
microprocessador executa o laço contro- 
la a fregiiência de vibração do cone do 
alto-falante e, consequentemente, a to- 
nalidade do som produzido. 

Como você pode observar, os nop 
não são executados apenas duas vezes. 
A instrução djnz (decrementa e salta se 
não for zero) promove várias repetições 
da pausa. 

A instrução djnz opera com base no 
valor do registro B. Assim, na primeira 
execução do laço, ela decrementa o va- 
lor de B, que passa de O para 255. Em 
seguida, o laço é executado mais 255 ve- 


Quantas portas existem? 


Teoricamente, existem 64K portas | 


— este É o maior número que pode ser 
endereçado por um par de registros de 
oito bits. Na prática, porém, utilizam-se 
apenas umas poucas portas. Quando 


seu Spectrum está na configuração ori- | 


ginal, somente a porta 254 é usada. 
O comando in permite empregar di- 
ferentes parâmetros para dirigir a por- 


| ta para as várias regiões do teclado. | 


| Neste artigo, recorremos a bits distin- 


| tos, da mesma porta, para controlar pe- | 


| riféricos diversos. 

| Se seu Spectrum for conectado a 

| periféricos não usuais, talvez você te- 
nha a possibilidade de aproveitar outras 

| portas. Conhecendo razoavelmente 
eletrônica, poderá, por exemplo, ligar 
seu micro a um sistema de aquecimen- 
to ou a um sintetizador, utilizando por- 
tas diferentes. 








"21 CÓDIGO DEMÁQUINA 21 





zes, até que B valha O novamente, 
Uma vez concluído o laço, o valor no 
topo da pilha é recuperado com pop e 
colocado no par BC. Com a recupera- 
ção do valor original de B, djmz o de- 
crementa e o microprocessador entra 
mais uma vez no laço. Esse processo le- 
va o valor de BC de volta à pilha. As- 
sim, o contador que fica na pilha é 
decrementado cada vez que o micropro- 
cessador executa o laço, e o valor ini- 
cial de B, que determina o número de 
execuções, torna-se menor. À medida 
que o número de execuções da pausa di- 
minui, a frequência do som aumenta. 


MOLDURA COM SETE CORES | 


Para especificar a cor da moldura uti- 
lizando o comando BASIC BORDER, 
atribuímos a ela um valor qualquer en- 
tre 0 e 7. Toda a moldura fica, então, 
com a cor correspondente. 

A rotina seguinte usa código de má- 
quina para criar uma moldura com sete 
cores. Poderíamos trabalhar com oito 
cores, mas não faria sentido ter na mol- 
dura uma tonalidade idêntica à da tela 
principal. 


10 REM orq 64600 

20 REM redo halt 

30 REM xor a 

40 REM loop out 254,a 
50 REM ld b,205 

60 REM pause ld e,2 
70 REM inner dec e 
B0 REM jr nz, inner 
90 REM djnz pause 
100 REM ld d,a 
110 REM ld a,S7F 
120 REM in a,254 
130 REM rra 
140 REM rts nc 

150 REM ld a,d 

160 REM inc a 

170 REM cp 7 

180 REM jr nz,loop 
190 REM jyr redo 





COMO SINCRONIZAR A TELA 


A instrução halt aguarda a ocorrên- 
cia de uma interrupção para, depois, 
continuar o programa. No Spectrum, a 
interrupção ocorre a cada varredura da 
tela. Assim, halt inicia a rotina quando 
a varredura começa no alto da tela, sin- 
cronizando a posição da moldura com 
a borda superior da tela de TV. 

A instrução xor a executa um “ou ex- 
clusivo” entre o acumulador e ele mes- 
mo, O que constitui uma forma rápida 
de zerar o acumulador. O 0 é enviado 
pela porta 254, Como zero, em lingua- 
gem de máquina e em BASIC, corres- 
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ponde a preto, a porção superior da tela 
adquire esta cor. 


AJUSTE A PAUSA 





Nesta rotina o tempo é essencial. O 
comprimento da pausa determina a lar- 
gura das bandas coloridas da moldura. 
Controla-se a pausa por meio de dois la- 
ços: O interno, que acerta o tempo gros- 
seiramente; e o externo, que o sintoniza 
de modo mais refinado. 

O laço interno é executado com base 


no registro E, que recebe o valor 2 atra- 
vés de 1d e,2, sendo decrementado por 
dec e. A instrução jrnz, inner realiza um 
salto relativo em direção ao rótulo in- 
ner, se o resultado não for zero. Assim, 
a cada execução do laço externo, o laço 
interno é executado duas vezes. 

O laço externo repete-se 205 vezes 
com o registro B. Id b,205 coloca este 
valor no registro B, assim como o djnz 
que o decrementa, saltando enquanto o 
resultado não for zero. Nenhuma instru- 
ção deste tipo opera com o registro E; 
por causa disso, a subtração e o salto 
precisam ser feitos em duas instruções 


Separadas. 


Se alterarmos tais valores, veremos 
que o valor colocado em E modifica 
bastante a largura das bandas, enquan- 
to o valor colocado no registro B tem 
um efeito bem menor. 





A OCORRÊNCIA DE UM BREAK 


Certamente, em algum momento, de- 
sejaremos sair desse laço. Para fazê-lo 
sem desligar seu micro, programe uma 
rotina de saída. 

A que apresentamos aqui verifica se 
a tecla <BREAK> foi pressionada, 
por meio da instrução in. 

Inicialmente, porém, ld d,a coloca o 
valor do acumulador no registro D. Por 
um instante o acumulador será usado 
para outras coisas, e o registro D ficará 
desocupado, podendo servir de registro 
temporário. 

Em seguida, o acumulador é carrega- 
do com o valor hexadecimal 7F, Esse 
número especifica o canto inferior es- 
querdo do teclado. A instrução in a,254 
recebe o padrão de bits correspondente 
ao estado atual dessa parte do teclado, 
colocando-o no acumulador. 

O bit zero representa o estado da te- 
cla <BREAK >. Se esta não estiver sen- 
do pressionada, ele valerá 1; se estiver, 
seu valor será igual a O. 

Para verificar isso, execute uma ro- 
tação, jogando o bit zero — que fica no 
extremo direito do byte — para o carry 
bit e checando, depois, o sinalizador 
carry. À instrução rra promove a rota- 
ção e rts nc retorna ao BASIC quando 
não há um ''vai um” — carry igual a 
zero ou ''not carry”. Assim, quando 
pressionar <BREAK > eo bit zero pas- 
sar a valer zero, rts provocará o fim da 
rotina; caso contrário, esta continuará 
funcionando. 

Lembre-se de que um retorno condi- 
cional tem o mnemônico rís apenas em 


nosso Assembler. Outros Assemblers msm 


utilizam a forma ret. 











COMPLETE O CÍRCULO 





Agora que temos uma saida da roti- 
na, o valor do acumulador é recupera- 
do por ld a,d, já que estava tempora- 
riamente em D. 

A é incrementado para especificar a 
cor seguinte. A instrução emp 7 compa- 
ra o resultado com 7. Este é o número 
correspondente ao branco, cor da tela 
principal. Se o número no acumulador 
não é sete, jrnz,loop volta para enviar 
a cor da próxima banda. Quando este 
laço tiver contado de O a 7, o micropro- 
cessador vai à instrução jr redo, que re- 
torna ao início do programa, à espera 
de uma nova varredura da tela. 

Você pode estar estranhando o fato 
de não produzir sons por acidente ao 
mudar a cor da moldura. A rotina não 
afeta o bit que controla o alto-falante. 
O maior número que enviamos pela por- 
ta 254 foi 7, quando precisaríamos de, 
no mínimo, 16 para movimentar o alto- 
falante. 





EFEITOS SONOROS 


Veremos agora como criar um efeito 
sonoro mais complexo, com o coman- 
do out. A rotina apresentada a seguir 
produz um som de disparo laser, usan- 
do a combinação de um som cuja fre- 
quência é crescente com um som de 
frequência decrescente. 


10 REM orq 64600 

20 REM ld a, (23624) 

30 REM rrca 

dO REM rrca 

50 REM rrca 

60 REM 1d b,0 

70 REM loop push bc 

80 REM xor $10 

90 REM out 254,a 

100 REM push af 

110 REM xor a 

120 REM sub b 

130 REM ld b,a 

140 pop af 

150 | pausea nop 

160 dijnz pausea 

170 REM xor $10 

180 out 254,a 

190 pop bc 

200 push bc 
210 REM pauseb nop 

220 REM djnz pauseb 
230 pop bc 
240 djinz loop 
250 REM ret 
As quatro primeiras instruções são 
exatamente iguais às do outro progra- 
ma de som. Têm a função de preservar 
a moldura. 
As duas seguintes — que estabelecem 

os valores iniciais de dois contadores, 





um no registro B e outro colocado na 
pilha a partir do registro B — também 
são iguais. O mesmo ocorre com as ou- 
tras duas, que usam ''ou exclusivo” en- 
tre os bits quatro e dezesseis e mandam 
o resultado pela porta 254. Desta vez, 
porém, xor é seguido de $10 — 16, em 
hex. Isto produz o som. 

O push guarda o conteúdo do acu- 
mulador na pilha, junto com o registro 
F. Os registros só podem ser guardados 
em pares. A instrução xor a limpa o acu- 
mulador e sub b subtrai B de O — con- 
teúdo do acumulador. Na prática, 
porém, inverte-se o conteúdo de B. 
Quando B é 255, obtemos 1 como resul- 
tado da subtração; quando B é 1, obte- 
mos como resultado 255. 

O 1d b,a coloca o resultado da sub- 
tração de volta em B. O acumulador que 
estava na pilha é novamente recupera- 
do, retornando ao acumulador. 

Temos, então, um laço de pausa 
cuja duração depende do conteúdo de B 
— lembre-se de que djnz decrementa o 
registro B e verifica se o resultado é ze- 
ro. O valor do bit quatro é invertido e 
enviado ao alto-falante. 

O pop recupera da pilha o valor ini- 
cial de B. Como este valor será utiliza- 
do mais adiante, é guardado novamente 
na pilha, depois de ter sido copiado em 
B. Agora ele se encontra, portanto, na 
pilha e em B. 

A próxima pausa depende desse va- 
lor inicial de B, que mais uma vez é re- 
cuperado da pilha. O mesmo ocorre 
sempre que se executa uma instrução 
djnz, para restaurar o valor de B. Quan- 
do o processador sai de um laço djnz, 
o valor de B tem que ser zero. 

O valor inicial de B é, então, dimi- 
nuído. Não sendo zero, o processador 
retorna ao início do laço e executa-o no- 
vamente, com um valor menor que o de 
B. Na passagem 256, quando B se tor- 
na 0, o processador passa à instrução ret 
e retorna ao BASIC. 

Você verá que o laço pausea é execu- 
tado 256 vezes na primeira passagem, 
uma vez na segunda e uma vez mais a 
cada nova passagem. O laço pauseb, por 
outro lado, é feito 256 vezes na primei- 
ra passagem e uma vez a menos a cada 
nova volta, 


ADIÇÃO DE SONS NATURAIS 





Os sons que os computadores produ- 
zem parecem artificiais porque são mui- 
to puros. Instrumentos musicais e outros 
aparelhos que produzem sons tendem a 
ser bastante irregulares na maneira de 
produzi-los. Mas é justamente esta carac- 
terística de acaso que lhes assegura efei- 








FAÇA MÚSICA NO SPECTRUM 

O código out permite a produção de | 
música em seu micro. Mas esteja pre- | 
parado: não é fácil executar os ajustes | 
necessários para obter a frequência 


| correta. 


O uso de uma rotina com dois pará- | 


| metros — relacionados à frequência e | 


à duração — simplifica bastante a ta- 
" refa. E esta rotina existe na ROM. Cha- 


| mada de rotina BEEP, começa no en- 
| dereço 038. Existe ainda uma rotina 
| adicional chamada BEEPER, que utiliza 


o valor em HL, para controlar a frequên- 


| cia, e o valor em DE, para controlar a 


duração. 
O valor que se deve usar em HL é 


| dado por 437500/1-301125, onde f é 


a frequência da nota. Multiplicando a 
frequência pela duração desejada, 
| obtém-se o valor a ser colocado em DE. 
Com este método, não é preciso obser- | 
| var limite usual de 10 segundos para 
a duração da nota, 
Se você chamar a rotina BEEP dire- 
tamente, deverá colocar na pilha os 


| mesmos valores de duração e frequên- 
| cia que são empregados num coman- 


do SOUND comum. 


tos tão agradáveis. Um instrumento não 
toca apenas o som fundamental, mas 
também os harmônicos. 

Existe uma maneira de introduzir um 
elemento de acaso nos sons produzidos 
pelo Spectrum. A RAM, entre 16384 e 
32767, fica em circuitos integrados que 
são geralmente interrompidos por um 
dispositivo que cuida da tela de TV e 
executa ainda outras tarefas. 

Normalmente, essas interrupções são 
quase imperceptíveis, de tão curtas — 
em geral duram uns poucos microsse- 
gundos. Mas a relação entre os sons e 
o tempo é tão estreita que o ouvido po- 
de captar variações mínimas. Assim, co- 
locando o programa gerador de sons 
nessa área da memória, eles soarão bem 
mais naturais — e terão uma duração 
um pouco maior. 

No nosso caso, a experiência não po- 
derá ser feita, pois nosso Assembler ocu- 
pa essa área da memória. Contudo, se 
não estiver usando uma impressora, ten- 
te montar o programa em seu buffer, ca- 
so ele caiba ali. O buffer vai de 23296 
a 23532 — assim, use 23296 como ori- 
gem. Não é preciso proteger esse espa- 
ço, pois o buffer está a salvo de ser 
apagado pelo BASIC, 
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Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





NannNO PRÓXIMO NUÚUMEROHHEEEEI! 


APLICAÇÕES 


A dificuldade de preparar um texto é coisa do passado. Resolva seus 
velhos problemas com um programa editor. 


CÓDIGO DE MÁQUINA 


Se você é usuário do Spectrum ou do TRS-Color, veja como funciona o gerador 
gráfico de nossos programas de animação. 


PROGRAMAÇÃO BASIC 
Complete o cenário montado com UDG. E aproveite para 
examinar algumas idéias a respeito de animação e gravação. 


PERIFÉRICOS 
Seu computador pode se comunicar com outros. 
O modem é um bom elo de ligação. 





